home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 80 / CD Actual 80 Julio-Agosto 2003.iso / Linux / LinuxGazette / lg / issue47 / misc / makarov / sas.d < prev   
Encoding:
Text File  |  2002-08-14  |  258 b   |  14 lines
  1. include "ir";
  2. include "input";
  3. include "pr";
  4. include "check";
  5. include "gen";
  6.  
  7. if (#argv != 1)
  8.   err ("Usage: sas file");
  9.  
  10. var pr = get_ir (open (argv[0], "r"));
  11. // print_ir (stdout, pr);
  12. check (pr);
  13. gen (pr, sub ("^(.*/)?([^.]*)(\\..*)?$", argv[0], "\\2"));
  14.